﻿Public Class FrmPrincipal

    Private Sub FrmPrincipal_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub

    Private Sub btnCiclos_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnCiclos.MouseEnter
        PicGrafico.Image = System.Drawing.Bitmap.FromFile("")
        btnCiclos.Focus()
    End Sub

    Private Sub btnCiclos_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnCiclos.Click
        If instancia_Cursos.IsDisposed = True Then
            instancia_Cursos = New FrmCursos
        End If
        instancia_Cursos.Show()
    End Sub

    Private Sub btnMatriculas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnMatriculas.Click
        If registros_Ciclos = 0 Then
            MessageBox.Show("No existen registros a mostrar...", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        If instancia_alumno.IsDisposed = True Then
            instancia_alumno = New FrmAlumnos
        End If
        instancia_alumno.Show()
    End Sub

    Private Sub btnConsultas_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnConsultas.Click
        If registros_Ciclos = 0 Then
            MessageBox.Show("No existen registros a mostrar...", "Error", MessageBoxButtons.OK, MessageBoxIcon.Warning)
            Exit Sub
        End If
        If instancia_alumnosciclos.IsDisposed = True Then
            instancia_alumnosciclos = New FrmAlumnos_Ciclos
        End If
        instancia_alumnosciclos.Show()
    End Sub

    Private Sub btnSalir_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSalir.Click
        End
    End Sub

    Private Sub btnSalir_MouseEnter(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnSalir.MouseEnter
        PicGrafico.Image = System.Drawing.Bitmap.FromFile("")
        btnCiclos.Focus()
    End Sub
End Class